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INTRODUCTION 

This instant outlines the COBOL Version 4.5 language as designed 
to run under NOS/BE 1 and NOS 1 operating systems for the 
CONTROL DATA® CYBER 170, CYBER 70 Model 72, 73, 74, 
and 6000 Series Computer Systems. 

COBOL Version 4.5 is compatible with the American National 
Standard COBOL, X3.23-1968, and contains extensions to the 
standard. Extensions are indicated in this instant by shading. 



Special Features 

Mass storage input and output including indexed sequential, actual 
key, and direct access file processing 

SORT verb sorts files within COBOL program 

Automatic table search using index names and the SEARCH and 
SET statements 

Report Writer produces printed reports automatically, or user may 
produce report page with LINAGE clause and WRITE statement 

Full arithmetic facility including: 
1 8— digit operands 
DIVIDE with REMAINDER 
COMPUTE with exponentiation 
CORRESPONDING option with ADD and SUBTRACT 

Segmentation and overlay of object program 

Inter-program communication with separately compiled COBOL 
programs as well as with FORTRAN or COMPASS programs 

Access to COBOL source library 

Memory dumps with restart at specified checkpoints 

Remote interactive capability for remote terminal input/output 



Multiple-index processing capability 
Ability to trace paragraphs 
EBCDIC file processing 

PROGRAM EFFICIENCY HINTS 

To reduce keypunching: 

Use abbreviations where permitted. 

Use PIC clause rather than SIZE, CLASS, USAGE clauses. 



To increase compilation efficiency: 

Restrict data and paragraph names to 9 characters or less. 
Eliminate unnecessary paragraph names. 
Reduce forward references. 

To increase execution efficiency: 

Use same size sending and receiving fields. 

Make table and item sizes a multiple of 10 characters. 

Reduce subscripting. 

Subscript with literals instead of variables. 

Use COMPUTATIONAL-1 items or index-names as .subscripts. 

Use COMPUTATIONAL-! items as arithmetic variables. 

Restrict arithmetic items to 9 digits or less. 

Use SYNCHRONIZED RIGHT clause for data frequently refer- 
enced. 

Use SAME RECORD AREA to save moves; SAME AREA to save 
space. 



NOTATION 



[ ] Enclosed elements are optional. 

I > Only one element must be selected 

. . . Repeat preceding bracketed material as needed. 

{ } ... Entire phrase may be repeated. 

COBOL words have preassigned meanings and appear in capitals. 

COBOL words not underlined may be omitted. 

Terms in small letters are words supplied by the programmer. 

Punctuation and special characters are required where shown. 



COBOL LANGUAGE ELEMENTS 

Word Sequence of up to 30 alphanumeric characters including 

embedded hyphens. 

Identifier Word that may be qualified or subscripted. 

Literal String of characters whose value is exactly represented 

by the characters; numeric literal may be 0-9, +, -, and 
decimal point; non-numeric literal must be enclosed in 
quotes, may be any alphanumeric character except quotes. 

Statement Procedure Division verb with associated options. 

Sentence One or more statements terminated by period. 

Paragraph Procedure Division sentences, Identification and Environ- 

ment Division entries introduced by paragraph name, 
terminated by period. 

Paragraph Word terminated by period used to introduce paragraph; 

Name user defined in Procedure Division, pre-defined in Identi- 

fication and Environment Divisions. 

Section Paragraphs may be included in sections introduced by 

section name. 



Section 
Name 



Entry 



Word followed by SECTION and terminated by period; 
user defined in Procedure Division, pre-defined in Identi- 
fication, Environment, and Data Divisions. 

Unit of description in Data Division; must be terminated 
by period. 



IDENTIFICATION DIVISION 



4?".'^W 



ID 
IDENTIFICATION 



DIVISION 



PROGRAM-ID. program-name. 
[ AUTHOR, [comment-entry.] ] 
[ INSTALLATION, [comment-entry.]] 
[ DATE-WRITTEN, [comment-entry.] ] 
[ DATE-COMPILED, [current-date supplied by compiler. 
[ SECURITY, [comment-entry.] ] 
[ REMARKS, [comment-entry.] ] 

ENVIRONMENT DIVISION 

ENVIRONMENT DIVISION- 
CONFIGURATION SECTION. 1 

format 1: 

SOURCE-COMPUTER. COPY library-name 



literal- 1 
REPLACING < word-1 

identifier-! 



( literal-2 
BY < word-2 
\ identifier-2 



literaI-3 
word -3 



V ( literal-4 

> BY < w 
identifter-3 / I identifier-4 



BY < word-4 



format 2: 



SOURCE-COMPUTER, computer-name. 



format 1 



OBJECT-COMPUTER. COPY library-name 



REPLACING 



C literal---!. 

< word-1 

V identifier-! 






I 



( literal-2 
BY < word-2 

(. identifier-2. 

( literal-4 
BY< word-4 



literal -3 

word-3 / i^_L -\ *»^»« -r , 

identifier-3 J I identifier-4; _ 



1 CO N FIG U RATI Oi\! S ECT1 N ; SO U R C E-COM P UTE R , and 
OBJECT-COMPUTER are optional. 
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format 2: 



OBJECT-COMPUTER, computer-name 

[ SEGMENT-LIMIT IS priority-number! 

( WORDS 
VIEMORY SIZE integer { CHARACTERS 



MODULES 



format 1 



SPECIAL-NAMES. COPY library-name 



REPLACING 



literai-1 
word-1 
identifier- 1 

-literal— 3 

word -3 
_t 'identifier^. 



literal-2 
BY < word-2 

identifier-2 

literal-4 
BY < word-4 

identifier-4 



format 2: 

SPECI AL-NAMES. 

SWITCH integer-1 



jS mnemonic-name-1 

[ON STATUS IS condition-name- 1 
[ OFF STATUS IS condition-name-2] 

[S mnemonic-name-2 

[ OFF STATUS IS condition-name-3 
[ ON STATUS IS condition-name-4] ] 

ON STATUS IS condition-name-5 
[ OFF STATUS IS condition-name-6] 

OFF STATUS jS condition-name-7 
[ON STATUS IS condition-name-8] 



[ implementor-name-1 IS mnemonic-name-1 
implementor-name-2 IS mnemonic-name-2 

[ non-numeric-literal-1 IS mnemonic-oame-1 
non-numeric-literal-2 IS mnemonic-name-2 

[ CURRENCY SIGN IS literal] 

[ DECIMAL-POINT IS COMMAl 






[ CONSOLE JS mnemonic-name] 
[ TERMINAL \S mnemonic-name] 
[ SUB-SCHEMA [S mnemonic-name]. 



Mb 



INPUT-OUTPUT SECTION. 



format 1 



FILE-CONTROL. COPY library-name 



REPLACING 



literal-1 
word-1 
identifier- 1 

literal -3 

word-3 

_ V identif ier-3 



( literal-2 
BY < word-2 

v identifier-2 



BY 



literal-4 

word-4 

identifier-4 



format 2: 



FILE-CONTROL. 



i SELECT [ OPTIONAL ! file-name-1 [RENAMING file-name-2] 
ASSIGN TO [integer] implementor-name-1 [implementor-name-2^ 
... [OR implementor-name-3 [implementor-name-4] ...] 



FOR MULTIPLE < 



( REEL 



UNIT 



[ ERROR FILE IS file-name] 



RESERVE {g? } ALTERNATE 



/AREA \ 
.1 AREAS i_ 



FILE-LIMIT IS 
FILE-LIMITSARE 



THRU 
THROUGH 

data-name-3 
literal-3 



data-name-1 
literal-1 

data-name-2 
literal-2 

( THRU 

\ THROUGH 



data-name-4 \ 
literal-4 j 



(data-name-5 \ 
FILE-LIMIT IS { |itera) _ 5 ] 



ORGANIZATION IS 



ACCESS MODE IS 



SEQUENTIAL 

STANDARD 

DIRECT 

INDEXED SEQUENTIAL 

RELATIVE 

ACTUAL KEY 



( SEQUENTIAL ) 



1 RANDOM 



JJ 



[PROCESSING MODE IS SEQUENTIAL ! 



ACTUAL KEY IS data-name- 1 



. SYMBOLIC KEY IS data-name-2 [WITH DUPLICATES ] \ 
( RECORD KEY IS data-name-3 [WITH DUPLJCATES l j 



ALTERNATE RECORD KEY IS data-name-3 



"WITH' DUPLICATES [INDEXED]] 



NUMBER OF BLOCKS IS 



(data-name 



t integer 



INDEX-LEVEL IS \ - ? 
INDEX^LEVELSARE j mte?9?r 



[INDEX-BLOCK CONTAINS integer CHARACTE R$] 

( RECORDS 



R ECORD-BLOCK CONTAINS Integer 



I CHARACTERS 



[ INDEX-PADDING IS integer PERCENT! 

[ DATA-PADDING IS integer PE RGENT] . | 
format 1 : 
l-O-CONTROL. COPY library-name 



REPLACING 



literal-! 
word-1 
identifier- 1 

jiteral-3 

word-3 

_ X identif ier-3 



literal-2 
BY < word-2 

identifier-2 

literal-4 
BY < word-4 

identifier-4 



format 2: 

1- CONTRO L. 

RERUN 



ON 



f file-name-1 



1 implernentor-name J 
H [END OF] {gg£} 



«€P% 



EVERY < { integer-1 RECORDS 
/ inteqer-2 CLOCK-UNITS 
v condition-name 

'/SAME AREA FOR file-name-1 jfile-name-2} .. 



OF file-name-2 



|sAME|gQ^ RD |AREA FOR file-name-1 {file-name-2} ...j 



& 



IULTIPLE FILE TAPE CONTAINS file-name-1 
[ POSITION integer-1 ] [ file-name-2 
[ POSITION integer-2] ] ... 1 ... . 



• 



PICTURE DESCRIPTION CODES 

Data Characters 

A Alphabetic character 
X Alphanumeric character 
9 Numeric character 

Operation Symbols 
S Signed 

V Assumed decimal point location 
P Assumed decimal point scaling position 

Replacement Characters 

Z Leading zeros replaced by blanks 

* Leading zeros replaced by * (check protection symbol) 

Insertion Characters 

$ Dollar sign; floating when more than one (dollar sign may be 
replaced by currency sign defined in SPECIAL-NAMES) 

Comma 
/ Slash (instead of comma) 

Actual decimal point 

B Blank 

Zero 

Minus sign when item is negative, blank when positive; floating 
when more than one 

+ Plus sign when item is positive, minus when negative; floating 
when more than one 

CR Credit symbol when item is negative, blank when positive 
DB Debit symbol when item is negative, blank when positive 



DATA SPECIFICATIONS 



^§!§§§|i 





File 
Section 


Common and 

Working 

Storage Sections 


Constant 
Section 


01 


g 

r 
o 
u 
P 


e 
I 

e 
m 


77 


01 


g 

r 



u 
P 


e 
I 

e 
m 


77 


01 


g 

r 
o 
u 
P 


e 
I 

e 
m 


REDEFINES 


I 






















SIZE 






R 


R 






R 


R 






R 


USAGE 
























CLASS 








R 








R 








OCCURS 


I 






I 


I 






I 


I 






POINT LOCATION 


J 








J 








J 






SIGNED 


J 








J 








J 






JUSTIFIED 


J 








J 








J 






SYNCHRONIZED 


J 








J 








J 






PICTURE 


J 








J 








J 






Editing Clauses 


J 








J 






I 


J 




I 


COPY 
























VALUE 


K 


K 


C 










V 






V 


FILLER 


I 






I 


I 






I 


I 







1 



R 
blank 
V 
J 
K 



Legal only in defining values for condition names 

Illegal 

Required if PICTURE is not used 

Optional 

Required 

Legal only on elementary 01 items 

Documentary only 

01 items may be elementary or group, depending 
on the program 

10 



i 



^SH 



DATA DiVISIO 



DATA DIVISION. 

[ FILESECTIQN. l 

f COMMON-STORAGE SECTION.! 

[ WORKING-STORAGE SECTION. ! 

[ CONSTANT SECTION. ] 

[ LINKAGE SECTION. ! 

[ REPORTSECTION. 1 



File Description Entry (File Section Only) 

A Sort File Description (SD) entry may contain only DATA RECORD, 
RECORD CONTAINS, and FILE CONTAINS clauses; any or all maybe 
omitted from an SD entry. 



format 1 : 



} — > file-name COPY library-name 



literal-1 
RE PLACING < word-1 

identifier-1 

literal-3 

word-3 

_1 identifier-3 



literal-2 
BY < word-2 

identifier-2 

literal-4 
BY <f word-4 

identifier-4 



format 2: 



SD 
FD 



file-name 



BLOCK CONTAINS [integer- 1 TO! integer-2 



RECORDS 
CHARACTERS j_ 



B^I I^Hs AReH"- 1 W^-name-2: 



REPORT IS 
L REPORTS ARE 



report-name-1 [report-name-2] ... 



[ FILE CONTAINS ABOUT integer RECORDS ! 
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LABEL 



RECORDS ARE 
RECORD IS 



STANDARD 

OMITTED 

data-name-1 [data-name-2. 



If label records are STANDARD: 



VALUE OF 



( ID 



IS 



Jiteral-1 



- t IDENTIFICATION j '" (data-name-1 

DATE-WRITTEN IS / l,tera| - 2 I 

■ ■. ■■■' -:■] ' ■■;■■■■ ■■■ ■■■ : ; - ■ -■ t data-name-2 j 



EDITION-NUMBER IS 



literal-3 



REEL-NUMBER IS 



data-name-3 j _ 

( literal-4 

1 data-name-4 

[ retention-cycle is / lltera| - 5 

L ( data-name-5 



[ 



] 



If label records are a data-name: 



VALUE OF data-name-3 IS 



literal-1 
data-name-4 



data-name-5 IS 



literal-2 
data-name-6 



VALUE OF ENQING-TAPE-LABEL-IDENTIFIER 



IS 



literal-3 
data-name-7 



LINAGE IS (l"^ 9 ?*.. j LINES 

■'■■■■ . ,;..:■'■■-.-■ I identif ier ) ^■■•■■■■•■■:.^ : 



RECORD CONTAINS [integer- 1 TO] integer-2 CHARACTERS 

RECORD-MARK 



DEPENDING ON v , 

data-name-1 

"7 BINARY Y 
R ECO R D ING MODE IS < DECIMAL j 

(l EBCDIC l J' 



]J 



HIGH Y 

LOW [DENSITY 
A HYPER j 



[ SEQUENCED OISI data-name-1 [data-name-2 3 .. . ] 
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Record Description Entry (File, Common-Storage, Working-Storage, 
Constant and Linkage Sections) 



format 1 



/01 
I 02-49 



data-name COPY library-name [FROM LIBRARY ] 



/ word-1 \ fword-2 



:-il 



REPLACING J identifier-! > BY< identifier-2 
( literai-1 ) (. literal -2 



"/ word-3 \ fword-4 

< identifier-3 > BY< identifier-4 
_(literal-3 J ( literal-4 



format 2: 

level-number data^nanie-1 PR EDE F 1 N ES identifier] 
COPY data-name-2 FROM SOURCE. 

format 3: 



level-number / data - na ™e-1 [ REDEFINES identifier] 
I FILLER 



/ BWZ 

\ BLANK WHEN ZERO 



CHECK PROTECT 
FLOAT DOLLAR SIGN 
FLOAT CURRENCY SIGN 
ZERO SUPPRESS 



LEAVING integer PLACES] 



[ CLASS m 



ALPHABETIC 
NUMERIC 
ALPHANUMERIC 
AN 



/ 



JUST 



1 JUSTIFIED 



RIGHT 
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OCCURS integer-1 [TO integer-2] TIMES 
[DEPENDING ON data-name-1] 



ASCENDING 
DESCENDING 



KEY IS data-name-2 [data-name-3] 



[ INDEXED BY index-name-1 [index-name-2] ...] 



f Pic. 

1 PICTURE 



IS character-string 



m 



POINT LOCATION IS ^~ \ integer PLACES 1 



MMg£ ,S HteraM { THOUGH > litera '' 2 

( SIGNED 

(.. SIGN IS data-name 



SIZE IS integer 



CHARACTERS 
DIGITS 



/ SYNC ) / LEFT \ 

\ SYNCHRONIZED / I RIGHT / _ 



USAGE IS] 



[ VALUE IS literal] 



CQMP 

COMPUTATIONAL 

COIVIP-I 

COMPUTATIONAL-1 

CQlViP~2 

COMPUTATlONAL-2 

DISPLAY 

INDEX 



format 4: 



66 data-name RENAMES identifier- 1 < ^^ , ,_ M > identifier-2 

_ { THROUGH 



format 5: 



QQ ,- + - ( VALUE IS ) 

88 condition-name j^^ ARE | 



literal-1 






j thru l „ , , 

1 THROUGH J lltera ' . 



literal-3 



THRU 
THROUGH 



literal-4 
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Report Description Entry (Report Section Only) 



format 1 



RD report-name [WITH CODE mnemonic-name] 



COPY library-name 



( literal- 1 Y 
< word-1 > 



REPLACING < word- 1 r 

identifier-1 / 



BY 



( literal-2 \ 
I word-2 > 

v identifier-2 ) 



{ literai-3 V ( literal-4 \ 

< word-3 > BY < word-4 > 

_ V identifier-3 ') v identif ier-4 / 



format 2: 



RD report-name [WITH CODE mnemonic-name] 



( identifier-1 [identifier-2] ... 
( CONTROL IS \ \ 

^l CONTROLS AREf < RNAL 



FINAL identifier-1 [identifier-2; 



PAGE 



LIMIT IS 
LIMITS ARE 



\ . , ( LINE \ 

) mteger - 1 | LINES ) 



[ HEADING integer-2] [ FIRST DETAIL integer-3] 
[ LAST DETAIL inteqer-4 [ FOOTING integer-5] 



Report Group Description Entry (Report Section Only) 



format 1 



01 [data-name] COPY library-name [FROM LIBRARY ! 



literal-1 Y f literals 

REPLACING < word-1 > BY < word-2 

identifier-1 /■" v. identifier-2 



literai-3 Y ( literal-4 \ 

word-3 > BY < word-4 > 

identifier-3 ) \ identif ier-4 / J 
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format 2: 



01 data-name-1 PREDEFINES identifier] 
COPY data-name-2 FROM SOURCE. 



format 3: 



01 [data-name] 



{CLASS IS] 



ALPHABETIC 
NU M E RIC 
ALPHANUMERIC 
AN 



( integer-1 
LINE NUMBER IS < PLUS inteqer-2 
[ NEXT PAGE 



( integer-1 
NEXT GROUP IS 1 PLUS inteqer-2 
I NEXT PAGE 



CI , tlc . t (CHARACTERS) 

SiZE_IS.nteger| DiGjTS j> 



TYPE IS 



identif ier-1 | 
FINAL j 



REPORT HEADING 

RH 

PAGE HEADING 

PH 

OVERFLOW HEADING 

QH 

( CONTROL HEADING 

X CH 
DETAIL 
DE 

/ CONTROL FOOTING | f identif ier-2 

1 CF j X FINAL 

OVERFLOW FOOTING 
QV 
PAGE FOOTING 

PEL 

REPORT FOOTING 

RF 



[ USAGE IS] DISPLAY 



• 
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Report Element Description (Report Section Only) 



TYPE clause allowed if level 01 



NEXT GROUP clause allowed if level 01 



level-number [data-name] 



/ BLANK WHEN ZERO } 

Vbwz j 



{ CHECK PROTECT 

) FLOAT DOLLAR SIGN 

FLOAT CURRENCY SIGN i [ LEAVING integer PLACES] 

ZERO SUPPRESS 



( CLASS IS] 



ALPHABETIC 

NUMERIC 

ALPHANUMERIC 



[ COLUMN NUMBER IS integer] 



[GROUP INDICATE 



f JUSTIFIED ) 



JUST 



f 



RIGHT 



( integer- 1 \ 

LINE NUMBER IS <^ PLUS inteqer-2 I 

{ NEXT PAGE ) 



f PiC \ 

X PICTURE / IS character - strm 9 



POINT LOCATION IS { ^ EL 

l RIGHT 



integer PLACES 



RESET ON 



/ identifier | 
X FINAL j 
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SIGNED * ' * m 



\ 1 « 

SIGN IS data-name ) J ^^ 



f CHARACTERS \ 1 
SiZEiSmteger { ) J 



[SELECTED ] identifier 

qnimrF.q ; LINE-COUNTER 
S0URCE ,S < PAGE-COUNTER 
TODAYS-DATE 

SUM identifier-1 [identifier-2] . . . [ UPON data-name] 

VALUE IS literal 

[[ USAGE IS] DISPLAY ]. 



• 
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USAGE SPECIFICATIONS 



Element 


Upper Limit 


data-name 


30 characters 


literal 


255 characters/digits 


PERFORM nesting 


no limit 


level numbers 


01-49,66,77,88, FD, RD, SD 


OCCURS. ..DEPENDING ON 


1 per record description 


library copies 


5 levels of nesting 


ACCEPT items 


80 characters; 

40 characters from console 


PICTURE clause 


30 symbols 


arithmetic operand 


18 digits 


GO TO statement 


no limit 


ALTER statement 


100 procedure names 


DISPLAY items 


no limit 


ENTER parameters 


no limit 


Total files, I/O devices, 
and reports 


53 


Total procedure names 


depends on field length 


Total external references 


depends on field length 


index names 


9 


report group 


127 detail lines 
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VALID MOVE OPERATIONS 



\> Rec. 
\ Field 
Source\ 
Field \ 


Elem. 
Binary 


Elem. 
Alpha 


Elem. 

BCD 

Num. 


Elem. 
AN 


Elem. 

Edit 

Num. 


Elem. 

Edit 

AN 


Group 
AN 


Elem. 
Binary 


Num. 
Bin. 


X 


Conv. 
Num. 


Conv.t 
AN 


Conv. 
Edit 


Conv.t 

AN- 

Edit 


TD 

AN 


Elem. 
Alpha 


X 


AN 


TD 
AN 


AN 


X 


AN- 
Edit 


AN 


Elem. 
BCD Num. 


Conv. 
Bin. 


TD 

AN 


Num. 


ANt 


Editt 


AN- 
Edit 


ANt 


Elem. 
AN 


X 


TD 

AN 


Num. 


AN 


Edit 


AN- 
Edit 


AN 


Elem. 
Edit Num. 


X 


TD 

AN 


X 


AN 


X 


AN- 
Edit 


AN 


Elem. 
Edit AN 


X 


TD 

AN 


X 


AN 


X 


AN- 
Edit 


AN 


Group AN 


TD 

AN 


TD 
AN 


TD 

AN 


AN 


X 


AN- 
Edit 


AN 


Group 
Binary & 
Mixed 


TD 

AN 


TD 

AN 


TD 

AN 


TD 

AN 


X 


TD 

AN- 
Moves 


TD 

AN 


Zero 


Num. 
Bin. 


X 


Num. 


AN 


Edit 


AN- 
Edit 


AN 


Literal & 
Fig. Cons. 
AN 


X 


TD 

AN 


X 


AN 


Edit 


AN- 
Edit 


AN 


Literal 
Num. 


Conv. 
Bin. 


X 


Num. 


ANt 


Edit 


AN- 
Edit 


AN 



t Valid only when source is integer; others TD. 

Any move to a binary or mixed group is treated as an alphanumeric 
move; a precautionary diagnostic is issued. 

A move to a figurative constant or literal is illegal. 

X Illegal 

AN Alphanumeric 

AN-Edit Alphanumeric edited 

Conv. Conversion prior to move 

Edit Numeric edited 

Num. Numeric 

Num. Bin. Numeric binary 

TD Trivial diagnostic issued 

AN-MOVES Alphanumeric moves 



« 



• 
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PROCEDURE DIVISION 

PROCEDURE DIVISION [ USING parameter-list] . 
DECLARATIVES. 

{ section-name SECTION, declarative-sentence. 

{ paragraph name. { sentence.} ...} ... } ... 
FND DECLARATIVES. 

{ section-name SECTION [priority-number] . 

{ paragraph-name. { sentence. } ... } ... } ... 



ACCEPT identifier 



■( i j-I s\ v~% 4- 1 4- 1 r\ r \ * 



( 



FROM 



TIME 

} DATE 

DAY 



) 



mnemonic-name /— I 



j IVJCI I (.1 i lei — £- * 



^W \ literal-1 i L I literal^ i _ " 
identifier-3 f ROUNDED ] 
[ON SIZE ERROR imperative-statement] 



add i ; dentm f ~ 1 } 

\ hteral-1 J 



( identifier-2 
_1 literal-2 



TO 



identifier-3 [ ROUNDED ] [identifier-4 [ ROUNDED ]] 



[ON SIZE ERROR imperative-statement] 



ADD 



identifier-1 



identifier-2 \ [~ / identifier-3 

literal-2 j L \ literal-3 



iteral-1 

GIVING identifier-4 [ ROUNDED ] [ ident i f ier-5 [ ROUNDED ]] 
[ON SIZE ERROR imperative-statement] 



ADD 



CORR 



I 



identifier-1 



CORRESPONDING f 
TO identifier-2 [ ROUNDED ] [identifier-3 [ ROUND ED ]:] 
[ON SIZE ERROR imperative-statement] 
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ALTER procedure-name-1 TO [ PROCEED TO] procedure-name-2 
[procedure-name-3 TO [ PROCEED TO l procedure-name-4] . 

CALL [language-name] routine-name 



CLOSE file-name-1 



file-name-2 



| UNIT \ 
A REEL j 



UNIT 



. I REEL /_ 



WITH f NO REWIND ) 
W,TH \ LOCK j 

WIT u f NO REWIND V 
Wl ™ \ LOCK L 



COMPUTE identifier- 1 [ ROUNDED ] [identifier-2 [ ROUNDED] ] 

( FROM ) ( literal 

y= / \ arithmetic-expression 

I EQUALS ) ( identif ier-3 



[ON SIZE ERROR imperative-statement] 



KJ 



COPY V 

INCLUDE j 



library-name [FROM LIBRARY ] 



REPLACING 



jiteral-1 
word-1 
identifier- 1 

iiteral-3 
word -3 
identif ier-3 



( literal-2 
BY < word-2 

I identifier-2 

literal-4 
BY < word-4 

identifier-4 



DELETE [LASI] RECORD FROM file-name 
[ IN VALID KEY imperative-statement] 



• 



DISPLAY 



f identifier-1 
\literal-1 



identifier-2 
literal-2 



UPON mnemonic-name] 



DIVIDE < ldent ' fier 1 \ INTO identifier-2 [ ROUNDED ] 
literal 



[identif ier-3 [ ROUND ED ]] ... 



[ON SIZE ERROR imperative-statement] 
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DIVIDE < identifier-^ i^ \ \ identifier " 2 
UIV — I literal-1 J \ jNTO / I literal-2 

GIVING identifier-3 [ROUNDED] [identifier-4 [ ROUNDED ]! 

[ON SIZE ERROR imperative-statement] 

identifier- 1 ) (BY \ j identifier-2 



DiVIDE ^ literal-1 / \ INTO J ( literal-2 

GIVING identifier-3 [ ROUNDED ] 

REMAINDER identifier-4 

[ON SIZE ERROR imperative-statement] 
ENTER [language-name] routine-name [ USING parameter-list]. 
ENTER COBOL- 
ENTER LINKAGE. 

ENTRY routine-name [ USING parameter-list]. 
E XAMINE identifier 

(^= ) literal-1 

TALLYING < LEADING V ^ REPLACING BY literal-2] 

(until first; 






ALL 



REPLACING 1 LEADING > literal-3 BY literal-4 

([ UNTIL ] FIRST 

EXIT- 
EXIT PROGRAM. T 

return. ':■■■:?[: 

GENERATE identifier 

GO TO [procedure-name] 

GO TO procedure-name-1 [procedure-name- 2] 
DEPENDING ON identifier 
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if conditional-expression [THEN} 



[ THEN ! 



OTHERWISE 
ELSE 



statement-1 
NEXT SENTENCE 



/ statement-2 \ 

1 NEXT SENTENCE j 



Conditional expressions include: 

GREATER THAN 
GR 

> 

LESS THAN 
LS 

IS [NOT] y |gEATER-EQUAL TQ^ 

LESS-EQUAL TO 
(identifier- 1) / / LQ 

<literal-1 > { I EQUAL TO 

(formula- 1 ) \ | EQUAL TO 

EQ 



si 



(identifier- 2) 
literal-2 
fformula-2 



IS UNEQUAL TO 

EQUALS 

EXCEEDS 

IS NQ 

IS NGR 

IS NLS 



( POSITIVE 
(identifier) IS [£vJOJX] \ NEGATIVE 
(formula j vcdm 



identifier IS [ NOT ] 
[ NOT ] 



(zero 



NUMERIC 



alphabetic / 

condition-name 



switch-status-name 



j report-name- 1 [report-name-2] ... ) 

\ r\L. L. :■ ) 



MOVE 



\ CORRESPONDING } identifier " 1 



literal-1 
identifier-1 

identifier-2[identifier-3] ... 



TO 
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MULTIPLY <; ldentlf,er 1 J> BY identifier-2 [ ROUNDED 
literal 



[identifier-3 [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 



MULTIPLY < identifier- 1 ) (identifier-2 

— hteral-1 j — I literal-2 



GIVING identifier-3 [ROUNDED] 

[identifier-4 [ ROUNDED ]] ... 

[ON SIZE ERROR imperative-statement] 

NOTE character-string. 

/ EXTEND file-name- 1 [file-name-23 '.'..; 

f REVERSED 



INPUT file-name-1 
file-name-2 



OPEN 



L (WITH NO REWIND 
REVERSED 



^ 1 

U 



L (WITH NO REWIND J J 



OUTPUT file-name-1 [WITH NO REWIND 

[file-name-2 [WITH NO REWIND ] ] 



INPUT-OUTPUT 
l-O 



file-name-1 [file-name-2] 



PERFORM procedure-name-1 



f identifier 



\ 



integer 



} TIMES ( 



UNTIL condition 



THRU 
THROUGH 



procedure-name-2 
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(THRU ) 

PERFORM procedure-name- 1 [ j THR0 UGH I P rocedure - name ~ 2 ^ |j| 



(lite 

VARYING { }" 6eX ; nam ^\ FROM \ ind 
( identifier- 1 J - . 



literal-1 

ex-name-2 } BY 
identifier-2 



literal-2 \ 
identifier-3 ; 



UNTIL condition-1 



j index-name-3\ 
I identifier-4 I 



literal— 3 

index-na 
identifier-5 



FROM < index-name-4> BY < . 



f literal-4 \ . IMTM .... 

^ } UNTIL condition-2 
'. identif ier-6 j 



, , C literal-5 

■vr--T-i-r-, j index-name-5 ) rr) ™/i ;■ j c\ dv 

AFTER < > FROM < index-name-6 > BY 

I identifier-/ j / . , . ,. Q 

{ identifier-8 



/ literal-6 
1 identifier-9 



UNTIL condition-3 



READ file-name[NEXT] RECORD [ INTO identifier! 



AT END imperative-statement 
MAJOR KEY IS data-name 
KEY IS data-name 



INVALID KEY imperative-statement 



RELEASE record-name [ FROM identifier] 
RETURN file-name RECORD [ INTO identifier] AT END 
imperative-statement 

REWRITE [ LAST] records 

f lNVALlD KEY Imperative-statement] 

index-name 



SEARCH identifier-! 



VARYING 



identifier-2 



[AT END imperative-statement-1 ] 



WHEN condition-1 



/ imperative-statement-2 \ 



NEXT SENTENCE 



WHEN condition-2 



imperative-statement-3 \ 
NEXT SENTENCE j 



• 



• 
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SEARCH ALL identifier [AT END imperative-statement-1 ] 



WHEN condition 



imperative-statement-2 
NEXT SENTENCE 



SEEK file-name RECORD [WITH KEY CONVERSION] 



c f index-name-1 [index-name-2~ 





I identifier- 1 


Lie 


lentitier-z 




f index-name- 


-3 


) 




TO < identifier-3 








' literal 




) 


SET 


index-name-1 [ind 


ex 


-name-2 




( UP BY ) 


/ 


identifier 




t DOWN BY J 


i 


literal 



{ literal } 

SKIP {■■ . , ! > RECORDS ON file-name 

(data-name ; 



SORT file-name- 1 ON 



/ DESCENDING 
t ASCENDING 



KEY data-name-1 [data-name-2] .. 



™, | DESCENDING ) ,_ w , 

(ASCENDING f data-name-3[data-name-4] 



INPUT PROCEDURE IS section-name-1 
THRU 



THROUGH 



section-name-2 



USING file-name-2 



OUTPUT PROCEDURE IS section-name-3 

f f THRU ) 

i TH ROUGH f SeCtlQn - name ^ 

GIVING file-name-3 
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START file-name 



IS EQUAL TO 

IS ' = 

.IS GREATER THAN x , , 

KEY< ^ — > data-name 

KtYS IS> _ 



L 



IS NOT LESS THAN 
.IS NOT < 



mm 



INVALID KEY imperative-statement 



STOP 



( literal 
\ RUN 



SUBTRACT 



identifier-1 



iteral-1 
FROM identifier-3 



\ [( identifier^)] 

j Llliteral-2 j] '" 



[ ROUNDED ] [identifier-4[ ROUNDED ]] .. 
[ON SIZE ERROR imperative-statement] 



SUBTRACT 
FROM 



identifier-1 
literat-1 

identifier-3 
literal-3 



identifier-2 
L I literal-2 



] 



GIVING identifier-4 [ ROUNDED ] 
[identifier^ [ ROUNDED ]] ... 
[ON SIZE ERROR imperative-statement] 
CORR 



SUBTRACT 



CORRESPONDING 



identifier-1 FROM 



identifier-2 [ ROUNDED ] [identifier-3 [ ROUNDED ] 
[ON SIZE ERROR imperative-statement] 
TERMINATE { W-name-1 [report-name-2] 

USE AFTER STANDARD ERROR PROCEDURE ON 

file-name-1 [file-name-2] ... 

INPUT 

OUTPUT 

INPUT-OUTPUT 

l-O 

EXTEND 



• 
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USE { acter E | STANDARD 



BEGINNING V 
L( ENDING jj 



( REEL 
] FILE 



.1 



LI UNIT ;j 



LABEL 



PROCEDURE 
PROCEDURES 



file-name-1 [file-name-2^ 
INPUT 



ON < OUTPUT 



INPUT-OUTPUT 
l-O 



USE BEFORE REPORTING identifier- 1 [identifier-2] ... 



USE FOR HASHING ON 



(ALL 



I 



i file-name-1 [file-name-2] ... j 



USE FOR DUPLICATE KEY ON i ~= ' ■ ■ 

~~~ [ file-name-1[file-name-2] 



(ALL 

\ f iie-name-1 [file-narne-2] 



WRITE record-name [FROM identifier-1 



BEFORE 
AFTER 



identifier-2 LINES 
ADVANCING { integer LINES 

mnemonic-name 



at i END-QF-PAGE , + . ._. 

AT < ■ ___ ,. : . , .,..■— . y imperative-statement 



WRITE [NEXT] record-name [FROM identifier] 



[ INVALID KEY imperative-statement] 
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COBOL CONTROL STATEMENT 



Parameters are used to select compilation options. All are optional and 
may be specified in any order. Each is separated from the other by a 
comma. The list may be enclosed in parentheses (as shown) or it may be 
separated from the word COBOL by a comma and terminated by a 
period. 



COBOL. 

COBOL (parameter-list) 

A (Blank Conversion) A 



^ comments] 



treats leading blanks as zeros 



ifpp 



B (Binary Output) 



BUF (Buffer Size) 



absent 

B 

B= LGO 

B = fn 

B = 

BUF 



relocatable binary file on file 
LGO 



binary output on file fn 
suppress binary output 

selects buffer size by method 
of version 3.0 COBOL 



C (Copy Default) 



uses version 3.0 COPY mode; 
to copy from library, FROM 
LIBRARY must be specified 



D (Execution Abort) D 



DB (Subscript Limit DB 

Check) 



DB1 (Paragraph Trace) DB1 



prevents execution of program 
if E diagnostic occurs 

checks if subscript item with- 
in range of OCCURS for that 
item 

allows a program's flow to be 
traced by paragraphs. Used 
in conjunction with trace 
directives: 



E (EDITLIBl 



E = prog 



ENTER 'D.ONTR', ENTER 
'D.OFFTR', or ENTER 
'D.STPTR'. 

generates OVERLAY 
(COBCODE, 0, 0) statement; 
selects V parameter 



• 
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F (Computational F 

Modification) 



interprets COMPUTATIONAL 
items as .COMPUTATIONAL-! 



H (Sort File) 




H 


allocates buffer area for 
sort 


1 (Source Input) 




absent \ 

1 
l=INPUT) 


INPUT assumed 






l=fn 


source input on file fn 


K (Sub-Schema 


File) 


K=fn 


sub-schema on file fn 






absent) 
KO | 


no sub-schema files for 
this compile 



L (List) 



absent 

L [ normal listing on OUTPUT 

LOUTPUT) 

any combination of following options: 
L=fn Output on file fn 





L=0 


suppress list output 




LX 


extended diagnostics 




LR 


cross reference pointers 




LC 


copy from library 




LO 


object code in octal 




LM 


data map 


N (Non-ANSI 


N 


diagnoses any non-ANSI 


Diagnostic) 




feature 



OB (Overlay Binary) OB=fn 
P (ANSI execution) P 

S (Source Library) 



absent ) 
S ' 

s=colib) 



S=fn 



binary output from overlay 
segments put on file fn 

allows non-ANSI reserved 
words; selects N parameter 

source library from file 
COLIB 

from file fn 
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SUB (Subcompile) 



SUBM (Main 
Subcompile) 



SUB 



SUB 



T (Tape Sort) T 

U (Alternate Collating) U 



V (Sort Overlay) 



V 



W (Initialize Overlays) W 



suppresses all Data Division 
binary output except from 
Working and Constant Storage 

indicates non-COBOL main 
program is loading a COBOL 
subprogram 

sort requests tape sort 

uses alternate collating 
sequence 

saves loaded program, using 
NOGO 

uses version 3.0 method of 
treating independent segments: 
they are available in last used 
state 



Z (3.0 Compatibility) Z 



provides compatibility with 
version 3.0 COBOL; selects 
parameters C, and W 
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COBOL CODING FORMAT 



Column 


Element 


1 -6 


Sequence number 


7 


Hyphen, slash, or asterisk 


8 


Division name 

Section name 

Paragraph name 

File description 

Record description level number 


12 


Record description data name 

First sentence of a paragraph 

File name 

Continuation of a data description or a sentence 


73-80 


Identification (optional) 



Sequence number 
Hyphen 

Slash or asterisk 

Division name 
Section name 

Paragraph name 

File Description 

Record Description 

First Sentence 



Optional, checked by the processor if used 

Indicates continuation of a word or literal from 
the preceding line 

Remainder of line is treated as comment and 
skips to new page 

Terminated by period, remainder of line is blank 

Followed by optional priority number, termi- 
nated by period, remainder is blank 

Terminated by period, followed by at least 
one blank before text begins 

FD or SD followed by file name and at least one 
blank 

Level number followed by at least one blank and 
data name 

Begins in of after column 12. Spaces may be used 
freely to avoid splitting a word or literal. If a 
word or literal is split, a hyphen must appear ir 
column 7 of the next line. 
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COBOL COMPILATION 







COBOL. 
/ ACCOUNT, usernumber,passwordt 



(job statement) 



tlf required by operating system 
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COMPILATION AND EXECUTIO 




/ACCOU NT, usern umber, passwordf 
/ (job statement) 



tlf required by operating system 
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EXECUTION WITH SUBCOMPILED PROGRAM 



empty record 

end of loader 
information 



ST 

8 
9 



fr 



data 



/I 
8 
9 



Binary Subprogram 



C 



^£ 



Binary Subprogram 



9 /= COBOL Source Deck 

/ 



A 



A 



r / ^GQ 



/ LOAD (INPUT) 



{ COBOL. 



ACCOU NT, usemumber, passwordf 



(job statement) 



• 



tlf required by operating system 



• 
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COBOL RESERVED WORD LIST 



* Indicates word not implemented. 



ABOUT 


CHARACTERS 


ACCEPT 


CHECK 


ACCESS 


CLASS 


ACTUAL 


CLOCK-UNITS 


ADD 


CLOSE 


*ADDRESS 


COBOL 


ADVANCING 


CODE 


AFTER 


COLUMN 


ALL 


COMMA 


ALPHABETIC 


COMMON-STORAGE 


ALPHANUMERIC 


COMP 


ALTER 


COMP-1 


ALTERNATE 


COMP-2 


AN 


COMP-3 


AND 


COMPUTATIONAL 


*ANSIB 


COMPUTATIONAL-1 


*APPLY 


COMPUTATIONAL-2 


ARE 


COMPUTATIONAL-3 


AREA 


COMPUTE 


a r F AS 


rniucini ir ATini\i 

^j\-/ i m i ivjui i r\ ■ lull 


ASCENDING 


CONSOLE 


ASSIGN 


CONSTANT 


AT 


CONTAINS 


AUTHOR 


CONTROL 




CONTROLS 




CONVERSION 


*BCD 


COPY 


BEFORE 


CORR 


BEGINNING 


CORRESPONDING 


BEGINNING-FILE-LABEL 


*GOUNT 


BEGINNING-TAPE-LABEL 


MmATE 


BINARY 


CURRENCY 


*BITS 




BLANK 




BLOCK 


DATA 


BLOCKS 


DATA-PADDING 


BWZ 


DATE 


BY 


DATE-COMPILED 




DATE-WRITTEN 




DAY 


CALL 


DE 


CANCEL 


DECIMAL 


*CD 


DECIMAL-POINT 


CF 


DECLARATIVES 


CH 


DELETE 


CHARACTER 


*£ELI MITER 




* DELIMITED 
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DENSITY 

DEPENDING 
* DEPTH 

DESCENDING 
^DESTINATION 

DETAIL 

DIGIT 

DIGITS 

DIRECT 
'♦DISABLE 

DISPLAY 

DIVIDE 

DIVIDED 

DIVISION 

DOLLAR 

DOWN 

DUPLICATE 

DUPLICATES 

EBCDIC 

EDITION-NUMBER 

ELSE 
*EMI 
*ENABLE 

END 

END--OF-PAGE 

ENDING 

ENDING-FILE-LABEL 

ENDING-TAPE-LABEL 

ENDING-TAPE-LABEL-IDENTIFIER 

ENTER 

ENTRY 

ENVIRONMENT 

EOP 

EQ 

EQUAL 

EQUALS 

ERROR 

ERROR -CODE 
♦ESI 
*ETi 

EVERY 

EXAMINE 

EXCEEDS 

EXIT 

EXPONENTIATED 

EXTEND 
♦EXTERNAL 



FD 


FILE 


FILE-CONTROL 


FJLE-LABEt 


FILE-LIMIT 


FILE-LIMITS 


FILLER 


FINAL 


*FIND 


FIRST 


FLOAT 


FOOTING 


FOR 


* FOR MAT 


FROM 






GENERATE 

GIVING 

GO 

GQ 

GR 

GREATER 

GREATER-EQUAL 

GROUP 



♦HASHED 

HASHID-VAUJE 

HASHING 

HEADING 

HIGH 

HIGH-VALUE 

HIGH-VALUES 
*HOLD 

HYPER 



ID 

IDENTIFICATION 

IF 

IN 

INCLUE)E 

INDEX 



• 
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INDEX-BLOCK 


•LOWER-BOUNDS 


INDEX-LEVEL 


LQ 


INDEX-LEVELS 


LS 


INDEX-PADDING 




INDEXED 




INDICATE 




INITIATE 


MAJOR 


INPUT 


MEMORY 


INPUT-OUTPUT 


* MESSAGE 


INSTALLATION 


MINUS 


INTO 


MODE 


INVALID 


MODULES 


1-0 


MOVE 


l-0-CONTROL 


MULTIPLE 


IS 


MULTIPLIED 




MULTIPLY 


JUST 




JUSTIFIED 






NEGATIVE 




MC VT 


KEY 
KEYS 


NGR 
NLS 
NO 




NOT 


LABEL 
LAST 
LEADING 
LEAVING 


NOTE 
NQ 

NUMBER 
NUMERIC 


LEFT 




LESS 




LESS-EQUAL 


OBJECT-COMPUTE 


LIBRARY 


OCCURS 


LIMIT 


OF 


LIMITS 


OFF 


LINAGE 


&SJfc 


LINAGE-COUNTER 


OMITTED 


LINE 


ON 


LINE-COUNTER 


OPEN 


LINES 


OPTIONAL 


LINKAGE 


OR 


LOCATION 


ORGANiZAtlON 


LOCK 


OTHERWISE 


LOW 


OUTPUT 


LOW-VALUE 


^oy-^v-:/^-':;: 


LOW-VALUES 


OVIRFLOW 


* LOWER-BOUND 


•OWNER 
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PAGE 

PAGE-COUNTER 

PERCENT 

PERFORM 

PF 

PH 

PIC 

PICTURE 

PLACES 

PLUS 

POINT 

POSITION 

POSITIVE 
*PREPARED 
*PRINT^SWITCH 

PRIORITY 

PROCEDURE 

PROCEDURES 

PROCEED 
>PROCESS 

PROCESSING 

PROGRAM 

PROGRAM-ID 

PROTECT 



QUOTE 
QUOTES 



RANDOM 

RANGE 

RD 

READ 
"RECEIVE 

RECORD 

RECORD-BLOCK 

RECORD-MARK 

RECORDING 

RECORDS 

REDEFINES 

REEL 

REEL-NUMBER 
PREFERENCES 

RELATIVE 

RELEASE 



REMAINDER 

REMARKS 

RENAMES 

RENAMING 

REPLACING 

REPORT 

REPORTING 

REPORTS 

RERUN 

RESERVE 

RESET 

RETURN 

REVERSED 

REWIND 

REWRITE 

RF 

RH 

RIGHT 

ROUNDED 

RUN 



mm 



*SA 

SAME 

SD 

SEARCH 

SECTION 

SECURITY 

SEEK 

SEGMENT-LIMIT 

SELECT 

SELECTED 
*SEND 

SENTENCE 

SEQUENCED 

SEQUENTIAL 

SET 

SIGN 

SIGNED 

SIZE 

SKIP 

SORT 

SOURCE 

SOURCE-COMPUTER 



• 
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SPACE 
SPACES 

SPECIAL-NAMES 
STANDARD 
START 
STATUS 
STOP 
*STRING 

*SUB~QUEUE-1 
*SUB-GUEUE-2 
*SUB-QUEUE-3 

SUB~SCHEMA 

SUBTRACT 

SUM 
*SUPERVISOR 

SUPPRESS 

SYMBOLIC 

SYNC 

SYNCHRONIZED 



#T a nt r 

TALLY 

TALLYING 

TAPE 

TERMINAL 

TERMINATE 
*TEST 
-TEXT 

THAN 

iHEN 

THROUGH 

THRU 

TIME 

TIMES 



TO 

TODAYS-DATE 

TYPE 



UNEQUAL 

UNIT 
*UNSTRING 

UNTIL 

UP 

UPON 
*UPPER-BOUND 
*UPPER-BOUNDS 

USAGE 

USE 

USING 



VALUE 
VALUES 
VARYING 
VOLUME 



WHEN 
WITH 
'WORDS 

WORKING-STORAGE 
WRITE 



ZERO 

ZEROES 

ZEROS 
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64-CHARACTER SET COLLATING SEQUENCE 



Collating 


COBOL 


Display 


Hollerith Punch 


Sequence 


Character 


Code 


(026) 


(029) 


00 


blank 


55 


no punch 


no punch 


01 


<* 


74 


8-5 


12-8-4 


02 


% 


63 


8-6 


0-8-4 


03 


[* 


61 


8-7 


8-5 


04 


->* 


65 


0-8-5 


0-8-5 


05 


— * 


60 


0-8-6 


8-3 


06 


A* 


67 


0-8-7 


12 


07 


t* 


70 


11-8-5 


8-4 


08 


I* 


71 


11-8-6 


0-8-7 


09 


> 


73 


11-8-7 


0-8-6 


10 


>* 


75 


12-8-5 


0-8-2 


11 


-i* 


76 


12-8-6 


11-8-7 


12 


. 


57 


12-8-3 


12-8-3 


13 


) 


52 


12-8-4 


11-8-5 


14 


] 


77 


12-8-7 


11-8-6 


15 


+ 


45 


12 


12-8-6 


16 


$ 


53 


11-8-3 


11-8-3 


17 


* 


47 


11-8-4 


11-8-4 


18 


- 


46 


11 


11 


19 


/ 


50 


0-1 


0-1 


20 


, 


56 


0-8-3 


0-8-3 


21 


( 


51 


0-8-4 


12-8-5 


22 


= 


54 


8-3 


8-6 


23 


=£t 


64 


8-4 


8-7 


24 


< 


72 


12-0 


12-8-2 


25 


A 


01 


12-1 


12-1 


26 


B 


02 


12-2 


12-2 


27 


C 


03 


12-3 


12-3 


28 


D 


04 


12-4 


12-4 


29 


E 


05 


12-5 


12-5 


30 


F 


06 


12-6 


12-6 


31 


G 


07 


12-7 


12-7 



1 



*Not in COBOL character set; may be present in data 
tCOBOL quote character (") is output on printer as / 
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64-CHARACTER SET COLLATING SEQUENCE 

(cont) 

Collating COBOL Display Hollerith Punch 

Sequence Character Code (026) (029) 



32 


H 


10 


12-8 


12-8 


33 


I 


11 


12-9 


12-9 


34 


V 


66 


11-0 


11-8-2 


35 


J 


12 


11-1 


11-1 


36 


K 


13 


11-2 


11-2 


37 


L 


14 


11-3 


11-3 


38 


M 


15 


11-4 


11-4 


39 


N 


16 


11-5 


11-5 


40 





17 


11-6 


11-6 


41 


P 


20 


11-7 


11-7 


42 


Q 


21 


11-8 


11-8 


43 


R 


22 


11-9 


11-9 


44 


]tt 


62 


0-8-2 


12-8-7 


45 


S 


23 


0-2 


0-2 


46 


T 


24 


0-3 


0-3 


47 


U 


25 


0-4 


0-4 


48 


V 


26 


0-5 


0-5 


49 


w 


27 


0-6 


0-6 


50 


X 


30 


0-7 


0-7 


51 


Y 


31 


0-8 


0-8 


52 


Z 


32 


0-9 


0-9 


53 


. * 


00 


8-2 


8-2 


54 





33 








55 


1 


34 


1 


1 


56 


2 


35 


2 


2 


57 


3 


36 


3 


3 


58 


4 


37 


4 


4 


59 


5 


40 


5 


5 


60 


6 


41 


6 


6 


61 


7 


42 


7 


7 


62 


8 


43 


8 


8 


63 


9 


44 


9 


9 



*Not in COBOL character set 
ttCOBOL record mark 
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ASCII COLLATING SEQUENCE 



Collating 




Display 


Hollerith Punch 


Sequence 


Gharacter 


Code 


(026) 


(029) 


00 


blank 


55 


no punch 


no punch 


01 


!* 


62 


0-8-2 


12-8-7 


02 


" 


64 


8-4 


8-7 


03 


# 


60 


0-8-6 


8-3 


04 


$ 


53 


11-8-3 


11-8-3 


05 


% 


63 


8-6 


0-8-4 


06 


& 


67 


0-8-7 


12 


07 


' 


61 


8-7 


8-5 


08 


( 


51 


0-8-4 


12-8-5 


09 


) 


52 


12-8-4 


11-8-5 


10 


* 


47 


11-8-4 


11-8-4 


11 


+ 


45 


12 


12-8-6 


12 


, 


56 


0-8-3 


0-8-3 


13 


- 


46 


11 


11 


14 




57 


12-8-3 


12-8-3 


15 


/ 


50 


0-1 


0-1 


16 





33 








17 


1 


34 


1 


1 


18 


2 


35 


2 


2 


19 


3 


36 


3 


3 


20 


4 


37 


4 


4 


21 


5 


40 


5 


5 


22 


6 


41 


6 


6 


23 


7 


42 


7 


7 


24 


8 


43 


8 


8 


25 


9 


44 


9 


9 


26 




00 


8-2 


8-2 


27 


,' 


77 


12-8-7 


11-8-6 


28 


< 


74 


8-5 


12-8-4 


29 


= 


54 


8-3 


8-6 


30 


> 


73 


11-8-7 


0-8-6 


31 


? 


71 


11-8-6 


0-8-7 



mm 
mm 



% 



• 
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ASCII COLLATING SEQUENCE (cont) 



Collating 




Display 


Hollerith Punch 


Sequence 


Character 


Code 


(026) 


(029) 


32 


@ 


70 


11-8-5 


8-4 


33 


A 


01 


12-1 


12-1 


34 


B 


02 


12-2 


12-2 


35 


C 


03 


12-3 


12-3 


36 


D 


04 


12-4 


12-4 


37 


E 


05 


12-5 


12-5 


38 


F 


06 


12-6 


12-6 


39 


G 


07 


12-7 


12-7 


40 


H 


10 


12-8 


12-8 


41 


I 


11 


12-9 


12-9 


42 


J 


12 


11-1 


11-1 


43 


K 


13 


11-2 


11-2 


A A 




1 A 


•1-1 o 

I i-o 


1-1 o 

1 i-o 


45 


M 


15 


11-4 


11-4 


46 


N 


16 


11-5 


11-5 


47 





17 


11-6 


11-6 


48 


P 


20 


11-7 


11-7 


49 


Q 


21 


11-8 


11-8 


50 


R 


22 


11-9 


11-9 


51 


S 


23 


0-2 


0-2 


52 


T 


24 


0-3 


0-3 


53 


U 


25 


0-4 


0-4 


54 


V 


26 


0-5 


0-5 


55 


w 


27 


0-6 


0-6 


56 


X 


30 


0-7 


0-7 


57 


Y 


31 


0-8 


0-8 


58 


z 


32 


0-9 


0-9 


59 


[ 


72 


12-0 or 12-8-2 


60 


/ 


75 


12-8-5 


0-8-2 


61 


] 


66 


11-0 or 11-8-2 


62 


— 


76 


12-8-6 


11-8-7 


63 


— 


65 


0-8-5 


0-8-5 
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63-CHARACTER SET COLLATING SEQUENCE 



£j 



r* ii *■ nnoru r^- ■ Hollerith Punch 
Collating COBOL Display 

Sequence Character Code (026) (029) 

55 no punch no punch 

74 8-5 12-8-4 
61 8-7 0-8-4 
65 0-8-5 0-8-5 
60 0-8-6 8-3 
67 0-8-7 12 

70 11-8-5 8-4 

71 11-8-6 0-8-7 
73 11-8-7 0-8-6 

75 12-8-5 0-8-2 

76 12-8-6 11-8-7 
57 12-8-3 12-8-3 

52 12-8-4 11-8-5 

77 12-8-7 11-8-6 

45 12 12-8-6 

53 11-8-3 11-8-3 
47 11-8-4 11-8-4 

46 11 11 

50 0-1 0-1 

56 0-8-3 0-8-3 

51 0-8-4 12-8-5 

54 8-3 8-6 
64 8-4 8-7 

72 12-0 12-8-2 

01 12-1 12-1 

02 12-2 12-2 

03 12-3 12-3 

04 12-4 12-4 

05 12-5 12-5 

06 12-6 12-6 

07 12-7 12-7 
10 12-8 12-8 

*Not in COBOL character set; may be present in data ^fP 

tCOBOL quote character (") is output on printer as + 

46 



00 


blank 


01 


<* 


02 


[* 


03 


^* 


04 


= * 


05 


A* 


06 


A * 


07 


1* 


08 


> 


09 


^ 


10 


n* 


11 




12 


) 


13 


/ 


14 


+ 


15 


$ 


16 


* 


17 


— 


18 


/ 


19 


r 


20 


( 


21 


= 


22 


=£t 


23 


< 


24 


A 


25 


B 


26 


C 


27 


D 


28 


E 


29 


F 


30 


G 


31 


H 



63-CHARACTER Si 


11 COLL) 


\TlNG S 


EQUEN 


(cont) 










Collating 


COBOL 


Display 


Hollerith Punch 


Sequence 


Character 


Code 


(026) 


(029) 


32 


I 


11 


12-9 


12-9 


33 


V 


66 


11-0 


11-8-2 


34 


J 


12 


11-1 


11-1 


35 


K 


13 


11-2 


11-2 


36 


L 


14 


11-3 


11-3 


37 


M 


15 


11-4 


11-4 


38 


N 


16 


11-5 


11-5 


39 





17 


11-6 


11-6 


40 


P 


20 


11-7 


11-7 


41 


Q 


50 


11-8 


11-8 


42 


R 


22 


11-9 


11-9 


43 


]tt 


62 


0-8-2 


12-8-7 


44 


S 


23 


0-2 


0-2 


45 


T 


24 


0-3 


0-3 


46 


U 


25 


0-4 


0-4 


47 


V 


26 


0-5 


0-5 


48 


W 


27 


0-6 


0-6 


49 


X 


30 


0-7 


0-7 


50 


Y 


31 


0-8 


0-8 


51 


Z 


32 


0-9 


0-9 


52 


. * 


63 


8-2 


8-2 


53 





33 








54 


1 


34 


1 


1 


55 


2 


35 


2 


2 


56 


3 


36 


3 


3 


57 


4 


37 


4 


4 


58 


5 


40 


5 


5 


59 


6 


41 


6 


6 


60 


7 


42 


7 


7 


61 


8 


43 


8 


8 


62 


9 


4 


9 


9 



*Not in COBOL character set 
ttCOBOL record mark 
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NOTES 



f 



• 



48 



CONTRpL DATA 
CORPORATION 




c 



CORPORATE HEADQUARTERS, 8100 34th AVE. SO. 

MINNEAPOLIS, MINN. 55440 

SALES OFFICES AND SERVICE CENTERS 
IN ^AJOR CITIES THROUGHOUT THE WORLD 



